Advanced Placement Companion: Precalculus/Advanced Placement Companion: Precalculus.iso/pc/M_DIR/12-02002.DIR/00019.ls

Text File | 1998-04-28 | 1019 b | 44 lines

on specA sNum, graphicNum
  setCursor(sNum)
  if rollOver(sNum) = 1 then
    set the visible of sprite graphicNum to 1
  else
    set the visible of sprite graphicNum to 0
  end if
end

on setCursor sNum
  set the cursor of sprite sNum to [cast "Hand Cursor", cast "hand cursor alpha"]
end

on specC sNum, graphicNum
  if rollOver(sNum) = 1 then
    set the visible of sprite graphicNum to 1
  else
    set the visible of sprite graphicNum to 0
  end if
end

on SpecD sNum, location
  set thisOne to the clickOn
  set the locH of sprite thisOne to the locH of sprite thisOne + 2
  set the locV of sprite thisOne to the locV of sprite thisOne + 2
  updateStage()
  puppetSound("click")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the locH of sprite thisOne to the locH of sprite thisOne - 2
  set the locV of sprite thisOne to the locV of sprite thisOne - 2
  updateStage()
  if the clickOn = sNum then
    go(location)
  else
  end if
end

on SpecE location
  puppetSound("click")
  go(location)
end